home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Frameworks / Grant's CGI Framework 1.0b12 / test.script < prev   
Text File  |  1995-08-18  |  885b  |  19 lines
  1. set CGIResult to ""
  2. set ListSTARResult to 99
  3.  
  4. tell application "cgi.acgi"
  5.     set CGIResult to CGI "path" method "POST" search "search+here" post ¬
  6.         "Field1=Some+text&field+2=%80that's+percent+80" client address ¬
  7.         "grant.mac.home" usermail "grant@acm.org" username "GRANT" password ¬
  8.         "TEST" server address "192.0.1.2" server port "80" script name "" referer ¬
  9.         "http://arpp1.carleton.ca/grant/" user agent "AppleScript" content type ¬
  10.         "text/plain" action name "TEST" action path "" client IP "192.0.1.2" full request ¬
  11.         "" version "1.2" connection 1997 -- Star Wars' 20th anniversary
  12.     
  13.     set ListSTARResult to ListSTAREvent "MyService" sender "Test User" email ¬
  14.         "user@mail.test" subject "Test Message" regexp "test regexep" filename ¬
  15.         "test.msg" mailcenter "" mczone "" mcemail ""
  16. end tell
  17.  
  18. return CGIResult & return & return & "ListSTAR Result: " & (ListSTARResult as text)
  19.